home *** CD-ROM | disk | FTP | other *** search
- #include <math.h>
- #include <stdio.h>
-
- #define GLOBALS
- #include "div.h"
-
- // Importante: Para cada función se debe indicar el retval(int), y hacer
- // siempre un getparm() por cada parámetro de llamada (el retval() es
- // imprescindible incluso si la función no necesita devolver un valor).
-
- void addsqrt() { // Función tonta, que devuelve la raiz cuadrada de una suma
- int a=getparm();
- int b=getparm();
- int c=sqrt(a+b);
-
- retval(c);
- }
-
- void __export divlibrary(LIBRARY_PARAMS) {
-
- COM_export("ADDSQRT",addsqrt,2); // Se indica el nombre que tendrá la función
- // en el lenguaje, el puntero a la misma y
- // el número de parámetros que tiene.
- }
-
- void __export divmain(COMMON_PARAMS) {
- GLOBAL_IMPORT();
- }
-
-